Delphi Developer's Kit 1996/Delphi Developer's Kit 1996.iso/power/dirvcl/tstdirec.dfm/tstdirec.txt

Text File | 1995-12-22 | 6.8 KB | 328 lines

object Form1: TForm1
  Tag = 25
  Left = 347
  Top = 119
  Width = 567
  Height = 500
  ActiveControl = BtnFind
  Caption = 'Directory Test'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnCreate = FormCreate
  OnResize = FormResize
  TextHeight = 16
  object LblFileMask: TLabel
    Left = 26
    Top = 381
    Width = 68
    Height = 16
    Caption = 'File &Mask'
  end
  object LblSearch: TLabel
    Left = 11
    Top = 147
    Width = 45
    Height = 16
    Caption = 'Search'
  end
  object LblVersion: TLabel
    Left = 26
    Top = 413
    Width = 236
    Height = 16
    Caption = 'LblVersion'
  end
  object LblInitialDir: TLabel
    Left = 10
    Top = 230
    Width = 59
    Height = 16
    Caption = 'InitialDir:'
  end
  object LblDirMask: TLabel
    Left = 312
    Top = 381
    Width = 58
    Height = 16
    Caption = 'Dir Mask'
  end
  object LblCurrentDir: TLabel
    Left = 26
    Top = 446
    Width = 82
    Height = 16
    Caption = 'Current Dir : '
  end
  object LbxResults: TListBox
    Left = 11
    Top = 8
    Width = 539
    Height = 124
    TabStop = False
    ExtendedSelect = False
    ItemHeight = 16
    TabOrder = 0
  end
  object BtnFind: TButton
    Left = 313
    Top = 408
    Width = 62
    Height = 27
    Caption = '&Find'
    Default = True
    TabOrder = 1
    OnClick = BtnFindClick
  end
  object BtnQuit: TButton
    Left = 483
    Top = 408
    Width = 62
    Height = 27
    Caption = '&Quit'
    TabOrder = 3
    OnClick = BtnQuitClick
  end
  object BtnCancel: TButton
    Left = 398
    Top = 408
    Width = 62
    Height = 27
    Caption = '&Cancel'
    Enabled = False
    TabOrder = 2
    OnClick = BtnCancelClick
  end
  object EdFileMask: TEdit
    Left = 101
    Top = 377
    Width = 170
    Height = 24
    MaxLength = 11
    TabOrder = 10
    Text = 'WWWWWWWW.WWW'
    OnExit = EdFileMaskExit
  end
  object TbNbSelections: TTabbedNotebook
    Left = 153
    Top = 140
    Width = 397
    Height = 230
    TabFont.Color = clBtnText
    TabFont.Height = -12
    TabFont.Name = 'MS Sans Serif'
    TabFont.Style = []
    TabOrder = 4
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'Fi&les'
      object Chkbxfilehidden: TCheckBox
        Left = 32
        Top = 50
        Width = 79
        Height = 17
        Caption = '&hidden'
        TabOrder = 0
        OnClick = ChkbxfilehiddenClick
      end
      object Chkbxfilesystem: TCheckBox
        Left = 227
        Top = 50
        Width = 79
        Height = 17
        Caption = 's&ystem'
        TabOrder = 1
        OnClick = ChkbxfilesystemClick
      end
      object ChkbxfileVolume: TCheckBox
        Left = 31
        Top = 75
        Width = 90
        Height = 17
        Caption = 'Vol&ume'
        TabOrder = 2
        OnClick = ChkbxfileVolumeClick
      end
      object Chkbxfileexcarchive: TCheckBox
        Left = 152
        Top = 165
        Width = 79
        Height = 17
        Caption = 'archi&ve'
        TabOrder = 3
        OnClick = ChkbxfileexcarchiveClick
      end
      object ChkbxfileExcNormal: TCheckBox
        Left = 262
        Top = 165
        Width = 68
        Height = 17
        Caption = '&normal'
        TabOrder = 4
        OnClick = ChkbxfileExcNormalClick
      end
      object Chkbxexcfilereadonly: TCheckBox
        Left = 26
        Top = 165
        Width = 79
        Height = 17
        Caption = '&readonly'
        TabOrder = 5
        OnClick = ChkbxexcfilereadonlyClick
      end
      object Chkbxfiledirectory: TCheckBox
        Left = 227
        Top = 75
        Width = 79
        Height = 17
        Caption = '&directory'
        TabOrder = 6
        OnClick = ChkbxfiledirectoryClick
      end
    end
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'Direct&ories (search)'
      object Chkbxdirhidden: TCheckBox
        Left = 62
        Top = 65
        Width = 79
        Height = 17
        Caption = '&hidden'
        TabOrder = 0
        OnClick = ChkbxdirhiddenClick
      end
      object Chkbxdirsystem: TCheckBox
        Left = 247
        Top = 65
        Width = 79
        Height = 17
        Caption = 's&ystem'
        TabOrder = 1
        OnClick = ChkbxdirsystemClick
      end
      object Chkbxdirexcreadonly: TCheckBox
        Left = 31
        Top = 150
        Width = 79
        Height = 17
        Caption = 'r&eadonly'
        TabOrder = 2
        OnClick = ChkbxdirexcreadonlyClick
      end
      object Chkbxdirexcarchive: TCheckBox
        Left = 152
        Top = 150
        Width = 79
        Height = 17
        Caption = 'archi&ve'
        TabOrder = 3
        OnClick = ChkbxdirexcarchiveClick
      end
      object ChkbxdirexcNormal: TCheckBox
        Left = 272
        Top = 150
        Width = 68
        Height = 17
        Caption = '&normal'
        TabOrder = 4
        OnClick = ChkbxdirexcNormalClick
      end
    end
  end
  object ChkbxWithSubDir: TCheckBox
    Left = 11
    Top = 170
    Width = 135
    Height = 17
    Caption = '&In Subdirectories'
    TabOrder = 7
    OnClick = ChkbxWithSubDirClick
  end
  object PnlInclusions: TPanel
    Left = 178
    Top = 179
    Width = 361
    Height = 28
    BevelInner = bvLowered
    BevelOuter = bvLowered
    Caption = 'Inclusions'
    TabOrder = 5
  end
  object PnlExclusions: TPanel
    Left = 178
    Top = 272
    Width = 361
    Height = 28
    BevelInner = bvLowered
    BevelOuter = bvLowered
    Caption = 'Exclusions'
    TabOrder = 6
  end
  object ChkbxOnlyDir: TCheckBox
    Left = 11
    Top = 205
    Width = 140
    Height = 17
    Caption = '&Only Directories'
    TabOrder = 8
    OnClick = ChkbxOnlyDirClick
  end
  object DirectoryListBox1: TDirectoryListBox
    Left = 5
    Top = 250
    Width = 145
    Height = 117
    ItemHeight = 16
    TabOrder = 9
    OnChange = DirectoryListBox1Change
  end
  object EdDirMask: TEdit
    Left = 382
    Top = 377
    Width = 166
    Height = 24
    MaxLength = 11
    TabOrder = 11
    Text = 'WWWWWWWW.WWW'
    OnExit = EdDirMaskExit
  end
  object EdCurrentDir: TEdit
    Left = 120
    Top = 442
    Width = 426
    Height = 24
    ReadOnly = True
    TabOrder = 12
    Text = 'EdCurrentDir'
  end
  object Directory1: TDirectory
    Version = 'V 1.5d - 16/05/95'
    OnFound = Directory1Found
    OnSearchStatus = Directory1SearchStatus
    ExcludeNormalFiles = False
    ExcludeReadOnlyFiles = False
    ExcludeArchiveFiles = False
    IncludeHiddenFiles = False
    IncludeSystemFiles = False
    IncludeVolumeID = False
    IncludeDirectoryFiles = False
    ExcludeNormalDir = False
    ExcludeReadOnlyDir = False
    ExcludeArchiveDir = False
    IncludeHiddenDir = False
    IncludeSystemDir = False
    InSubDirectories = False
    OnlyDirectories = False
    FileFilter = '*.*'
    DirectoryFilter = '*.*'
    Left = 110
    Top = 135
  end
end